-- Copyright 2012, Google Inc.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
-- modification, are permitted provided that the following conditions are met:
--
--     * Redistributions of source code must retain the above copyright notice,
--       this list of conditions and the following disclaimer.
--     * Redistributions in binary form must reproduce the above copyright
--       notice, this list of conditions and the following disclaimer in the
--       documentation and/or other materials provided with the distribution.
--     * Neither the name of Google Inc. nor the names of its contributors may
--       be used to endorse or promote products derived from this software
--       without specific prior written permission.
--
-- THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-- AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-- IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-- ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
-- LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
-- CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
-- SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-- INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
-- CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
-- ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-- POSSIBILITY OF SUCH DAMAGE.

-- Author: Paul Brauner (polux@google.com)

module Text.Templating.Go.Data where

import Data.Monoid

data Var = Plain String
         | Dollar String
         | Dot
  deriving Show

data Expr = Bool Bool
          | String String
          | Char Char
          | Integer Integer
          | Double Double
          | AccessChain Var [String]
          | Apply Expr [Expr]
          | VarDef [Var] Pipeline
  deriving Show

newtype Pipeline = Pipeline [Expr]
  deriving Show

data Template = Definition String Template
              | Expression Pipeline
              | If Pipeline Template Template
              | Range Pipeline Template Template
              | TemplateCall String Pipeline
              | With Pipeline Template Template
              | Text String
              | Concat [Template]
  deriving Show

instance Monoid Template where
  mempty = Concat []
  mappend x y = Concat [x, y]
  mconcat = Concat
